home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / _archvrs / mac / cptpr134.bin / compactpro134.rsrc / CODE_1.txt < prev    next >
Text File  |  1994-02-02  |  13KB  |  249 lines
  1. # near model CODE resource
  2. # entry label at 0x0000
  3. entry:
  4. 00000000  0000 0092                ori.b      D0, 0x92
  5. export_0:
  6. 00000004  4278 0A4A                clr.w      [0x00000A4A /* FPState */]
  7. 00000008  9DCE                     sub.l      A6, A6
  8. 0000000A  4EBA 0024                jsr        [PC + 0x24 /* 00000030 */]
  9. 0000000E  4267                     clr.w      -[A7]
  10. 00000010  4879 0000 FFFF           pea.l      [0x0000FFFF]
  11. 00000016  486F 0004                pea.l      [A7 + 0x4]
  12. 0000001A  4857                     pea.l      [A7]
  13. 0000001C  4878 0001                pea.l      [0x00000001]
  14. 00000020  223A FFDE                move.l     D1, [PC - 0x22 /* 00000000 */]
  15. 00000024  4EB5 1000                jsr        [A5 + D1.w]
  16. 00000028  206D 006C                movea.l    A0, [A5 + 0x6C]
  17. 0000002C  4E90                     jsr        [A0]
  18. 0000002E  A9F4                     trap       ExitToShell
  19. fn00000030:
  20. 00000030  598F                     subq.l     A7, 4
  21. 00000032  2F3C 5A45 524F           move.l     -[A7], 0x5A45524F /* 'ZERO' */
  22. 00000038  4267                     clr.w      -[A7]
  23. 0000003A  A9A0                     trap       GetResource
  24. 0000003C  2457                     movea.l    A2, [A7]
  25. 0000003E  598F                     subq.l     A7, 4
  26. 00000040  2F3C 4441 5441           move.l     -[A7], 0x44415441 /* 'DATA' */
  27. 00000046  4267                     clr.w      -[A7]
  28. 00000048  A9A0                     trap       GetResource
  29. 0000004A  2057                     movea.l    A0, [A7]
  30. 0000004C  2050                     movea.l    A0, [A0]
  31. 0000004E  2278 0908                movea.l    A1, [0x00000908 /* CurStackBase */]
  32. 00000052  2452                     movea.l    A2, [A2]
  33. 00000054  600E                     bra        +0x10 /* 00000064 */
  34. label00000056:
  35. 00000056  32D8                     move.w     [A1]+, [A0]+
  36. 00000058  660A                     bne        +0xC /* 00000064 */
  37. 0000005A  321A                     move.w     D1, [A2]+
  38. 0000005C  6002                     bra        +0x4 /* 00000060 */
  39. label0000005E:
  40. 0000005E  4219                     clr.b      [A1]+
  41. label00000060:
  42. 00000060  51C9 FFFC                dbf        D1, -0x6 /* 0000005E */
  43. label00000064:
  44. 00000064  BBC9                     cmpa.l     A5, A1
  45. 00000066  66EE                     bne        -0x10 /* 00000056 */
  46. 00000068  A9A3                     trap       ReleaseResource
  47. 0000006A  A9A3                     trap       ReleaseResource
  48. 0000006C  598F                     subq.l     A7, 4
  49. 0000006E  2F3C 4452 454C           move.l     -[A7], 0x4452454C /* 'DREL' */
  50. 00000074  4267                     clr.w      -[A7]
  51. 00000076  A9A0                     trap       GetResource
  52. 00000078  2057                     movea.l    A0, [A7]
  53. 0000007A  A025                     trap       GetHandleSize
  54. 0000007C  2050                     movea.l    A0, [A0]
  55. 0000007E  E240                     asr        D0.w, 1
  56. 00000080  240D                     move.l     D2, A5
  57. 00000082  6006                     bra        +0x8 /* 0000008A */
  58. label00000084:
  59. 00000084  3218                     move.w     D1, [A0]+
  60. 00000086  D5B5 1000                add.l      [A5 + D1.w], D2
  61. label0000008A:
  62. 0000008A  51C8 FFF8                dbf        D0, -0xA /* 00000084 */
  63. 0000008E  A9A3                     trap       ReleaseResource
  64. 00000090  4E75                     rts
  65. export_1:
  66. 00000092  205F                     movea.l    A0, [A7]+
  67. 00000094  3218                     move.w     D1, [A0]+
  68. label00000096:
  69. 00000096  3418                     move.w     D2, [A0]+
  70. 00000098  B058                     cmp.w      D0, [A0]+
  71. 0000009A  57C9 FFFA                dbeq       D1, -0x8 /* 00000096 */
  72. 0000009E  4A42                     tst.w      D2
  73. label000000A0:
  74. 000000A0  67FE                     beq        -0x0 /* 000000A0 */
  75. 000000A2  4EF0 20FC                jmp        [A0 + D2.w - 0x4]
  76. export_2:
  77. 000000A6  205F                     movea.l    A0, [A7]+
  78. 000000A8  3218                     move.w     D1, [A0]+
  79. label000000AA:
  80. 000000AA  3418                     move.w     D2, [A0]+
  81. 000000AC  B098                     cmp.l      D0, [A0]+
  82. 000000AE  57C9 FFFA                dbeq       D1, -0x8 /* 000000AA */
  83. 000000B2  4A42                     tst.w      D2
  84. label000000B4:
  85. 000000B4  67FE                     beq        -0x0 /* 000000B4 */
  86. 000000B6  4EF0 20FA                jmp        [A0 + D2.w - 0x6]
  87. export_3:
  88. 000000BA  205F                     movea.l    A0, [A7]+
  89. 000000BC  3218                     move.w     D1, [A0]+
  90. 000000BE  3418                     move.w     D2, [A0]+
  91. 000000C0  B042                     cmp.w      D0, D2
  92. 000000C2  6E0A                     bgt        +0xC /* 000000CE */
  93. 000000C4  9041                     sub.w      D0, D1
  94. 000000C6  6D06                     blt        +0x8 /* 000000CE */
  95. 000000C8  D040                     add.w      D0, D0
  96. 000000CA  41F0 0002                lea.l      A0, [A0 + D0.w + 0x2]
  97. label000000CE:
  98. 000000CE  3010                     move.w     D0, [A0]
  99. label000000D0:
  100. 000000D0  67FE                     beq        -0x0 /* 000000D0 */
  101. 000000D2  4EF0 0000                jmp        [A0 + D0.w]
  102. export_4:
  103. 000000D6  202F 0004                move.l     D0, [A7 + 0x4]
  104. 000000DA  2F41 0004                move.l     [A7 + 0x4], D1
  105. 000000DE  222F 0008                move.l     D1, [A7 + 0x8]
  106. 000000E2  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  107. 000000E6  48E7 3C00                movem.l    -[A7], D2,D3,D4,D5
  108. 000000EA  2400                     move.l     D2, D0
  109. 000000EC  2601                     move.l     D3, D1
  110. 000000EE  4842                     swap.w     D2
  111. 000000F0  C4C3                     mulu.w     D2, D3
  112. 000000F2  2800                     move.l     D4, D0
  113. 000000F4  2A01                     move.l     D5, D1
  114. 000000F6  4845                     swap.w     D5
  115. 000000F8  C8C5                     mulu.w     D4, D5
  116. 000000FA  D444                     add.w      D2, D4
  117. 000000FC  4842                     swap.w     D2
  118. 000000FE  4242                     clr.w      D2
  119. 00000100  C0C1                     mulu.w     D0, D1
  120. 00000102  D082                     add.l      D0, D2
  121. 00000104  4CDF 003C                movem.l    D5,D4,D3,D2, [A7]+
  122. 00000108  221F                     move.l     D1, [A7]+
  123. 0000010A  4E75                     rts
  124. export_5:
  125. 0000010C  202F 0004                move.l     D0, [A7 + 0x4]
  126. 00000110  2F41 0004                move.l     [A7 + 0x4], D1
  127. 00000114  222F 0008                move.l     D1, [A7 + 0x8]
  128. 00000118  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  129. 0000011C  48E7 3100                movem.l    -[A7], D2,D3,D7
  130. 00000120  4EBA 009C                jsr        [PC + 0x9C /* 000001BE */]
  131. 00000124  4CDF 008C                movem.l    D7,D3,D2, [A7]+
  132. 00000128  221F                     move.l     D1, [A7]+
  133. 0000012A  4E75                     rts
  134. export_6:
  135. 0000012C  202F 0004                move.l     D0, [A7 + 0x4]
  136. 00000130  2F41 0004                move.l     [A7 + 0x4], D1
  137. 00000134  222F 0008                move.l     D1, [A7 + 0x8]
  138. 00000138  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  139. 0000013C  48E7 3100                movem.l    -[A7], D2,D3,D7
  140. 00000140  4EBA 007C                jsr        [PC + 0x7C /* 000001BE */]
  141. 00000144  2001                     move.l     D0, D1
  142. 00000146  4CDF 008C                movem.l    D7,D3,D2, [A7]+
  143. 0000014A  221F                     move.l     D1, [A7]+
  144. 0000014C  4E75                     rts
  145. export_7:
  146. 0000014E  202F 0004                move.l     D0, [A7 + 0x4]
  147. 00000152  2F41 0004                move.l     [A7 + 0x4], D1
  148. 00000156  222F 0008                move.l     D1, [A7 + 0x8]
  149. 0000015A  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  150. 0000015E  48E7 3100                movem.l    -[A7], D2,D3,D7
  151. 00000162  4EBA 002C                jsr        [PC + 0x2C /* 00000190 */]
  152. 00000166  4CDF 008C                movem.l    D7,D3,D2, [A7]+
  153. 0000016A  221F                     move.l     D1, [A7]+
  154. 0000016C  4E75                     rts
  155. export_8:
  156. 0000016E  202F 0004                move.l     D0, [A7 + 0x4]
  157. 00000172  2F41 0004                move.l     [A7 + 0x4], D1
  158. 00000176  222F 0008                move.l     D1, [A7 + 0x8]
  159. 0000017A  2F5F 0004                move.l     [A7 + 0x4], [A7]+
  160. 0000017E  48E7 3100                movem.l    -[A7], D2,D3,D7
  161. 00000182  4EBA 000C                jsr        [PC + 0xC /* 00000190 */]
  162. 00000186  2001                     move.l     D0, D1
  163. 00000188  4CDF 008C                movem.l    D7,D3,D2, [A7]+
  164. 0000018C  221F                     move.l     D1, [A7]+
  165. 0000018E  4E75                     rts
  166. fn00000190:
  167. 00000190  4A80                     tst.l      D0
  168. 00000192  6A1C                     bpl        +0x1E /* 000001B0 */
  169. 00000194  4A81                     tst.l      D1
  170. 00000196  6A0C                     bpl        +0xE /* 000001A4 */
  171. 00000198  4480                     neg.l      D0
  172. 0000019A  4481                     neg.l      D1
  173. 0000019C  4EBA 0020                jsr        [PC + 0x20 /* 000001BE */]
  174. 000001A0  4481                     neg.l      D1
  175. 000001A2  4E75                     rts
  176. label000001A4:
  177. 000001A4  4480                     neg.l      D0
  178. 000001A6  4EBA 0016                jsr        [PC + 0x16 /* 000001BE */]
  179. 000001AA  4480                     neg.l      D0
  180. 000001AC  4481                     neg.l      D1
  181. 000001AE  4E75                     rts
  182. label000001B0:
  183. 000001B0  4A81                     tst.l      D1
  184. 000001B2  6A0A                     bpl        +0xC /* 000001BE */
  185. 000001B4  4481                     neg.l      D1
  186. 000001B6  4EBA 0006                jsr        [PC + 0x6 /* 000001BE */]
  187. 000001BA  4480                     neg.l      D0
  188. 000001BC  4E75                     rts
  189. fn000001BE:
  190. 000001BE  2E3C 0000 FFFF           move.l     D7, 0xFFFF
  191. 000001C4  B280                     cmp.l      D1, D0
  192. 000001C6  6306                     bls        +0x8 /* 000001CE */
  193. 000001C8  2200                     move.l     D1, D0
  194. 000001CA  7000                     moveq.l    D0, 0x00
  195. 000001CC  4E75                     rts
  196. label000001CE:
  197. 000001CE  B087                     cmp.l      D0, D7
  198. 000001D0  620C                     bhi        +0xE /* 000001DE */
  199. 000001D2  80C1                     divu.w     D0, D1
  200. 000001D4  4840                     swap.w     D0
  201. 000001D6  3200                     move.w     D1, D0
  202. 000001D8  4240                     clr.w      D0
  203. 000001DA  4840                     swap.w     D0
  204. 000001DC  4E75                     rts
  205. label000001DE:
  206. 000001DE  B287                     cmp.l      D1, D7
  207. 000001E0  621A                     bhi        +0x1C /* 000001FC */
  208. 000001E2  2E00                     move.l     D7, D0
  209. 000001E4  4240                     clr.w      D0
  210. 000001E6  4840                     swap.w     D0
  211. 000001E8  80C1                     divu.w     D0, D1
  212. 000001EA  4840                     swap.w     D0
  213. 000001EC  4847                     swap.w     D7
  214. 000001EE  3E00                     move.w     D7, D0
  215. 000001F0  4847                     swap.w     D7
  216. 000001F2  8EC1                     divu.w     D7, D1
  217. 000001F4  3007                     move.w     D0, D7
  218. 000001F6  4847                     swap.w     D7
  219. 000001F8  3207                     move.w     D1, D7
  220. 000001FA  4E75                     rts
  221. label000001FC:
  222. 000001FC  2400                     move.l     D2, D0
  223. 000001FE  2601                     move.l     D3, D1
  224. label00000200:
  225. 00000200  E288                     lsr        D0, 1
  226. 00000202  E289                     lsr        D1, 1
  227. 00000204  B287                     cmp.l      D1, D7
  228. 00000206  62F8                     bhi        -0x6 /* 00000200 */
  229. 00000208  80C1                     divu.w     D0, D1
  230. 0000020A  C087                     and.l      D0, D7
  231. label0000020C:
  232. 0000020C  3203                     move.w     D1, D3
  233. 0000020E  C2C0                     mulu.w     D1, D0
  234. 00000210  2E03                     move.l     D7, D3
  235. 00000212  4847                     swap.w     D7
  236. 00000214  CEC0                     mulu.w     D7, D0
  237. 00000216  4847                     swap.w     D7
  238. 00000218  D287                     add.l      D1, D7
  239. 0000021A  6508                     bcs        +0xA /* 00000224 */
  240. 0000021C  9282                     sub.l      D1, D2
  241. 0000021E  6204                     bhi        +0x6 /* 00000224 */
  242. 00000220  4481                     neg.l      D1
  243. 00000222  4E75                     rts
  244. label00000224:
  245. 00000224  5340                     subq.w     D0, 1
  246. 00000226  60E4                     bra        -0x1A /* 0000020C */
  247. export_9:
  248. 00000228  4E75                     rts
  249.